(* Copyright (c) 1994 xTech Ltd, Russia. All Rights Reserved. *)
<*+ M2ADDTYPES *>
DEFINITION MODULE FileSys; (* Ned 13-Feb-94. *)

PROCEDURE Exists(fname: ARRAY OF CHAR): BOOLEAN;
(* Returns TRUE, if file "fname" exists. *)

PROCEDURE ModifyTime(fname: ARRAY OF CHAR;
                  VAR time: LONGCARD;
                VAR exists: BOOLEAN);
(* Returns file modification time *)

PROCEDURE Rename(fname,newname: ARRAY OF CHAR; VAR done: BOOLEAN);
(* Renames file "fname" to "newname" *)

PROCEDURE Remove(fname: ARRAY OF CHAR; VAR done: BOOLEAN);
(* Removes file "fname" *)

END FileSys.
